(Fx_list_fonts): If names is 0, just return nil.

diff --git a/src/xfns.c b/src/xfns.c
index e46053ba163f7801213bd9f9f1d008779d6c6c74..1ca40679e32a19d9f49fc1ffa7872e9eb01782a8 100644 (file)
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -2227,22 +2227,24 @@ fonts), even if they match PATTERN and FACE.")
                              &info); /* info_return */
   UNBLOCK_INPUT;
 
-  {
-    Lisp_Object *tail;
-    int i;
+  list = Qnil;
 
-    list = Qnil;
-    tail = &list;
-    for (i = 0; i < num_fonts; i++)
-      if (! size_ref 
-         || same_size_fonts (&info[i], size_ref))
-       {
-         *tail = Fcons (build_string (names[i]), Qnil);
-         tail = &XCONS (*tail)->cdr;
-       }
+  if (names)
+    {
+      Lisp_Object *tail;
+      int i;
 
-    XFreeFontInfo (names, info, num_fonts);
-  }
+      tail = &list;
+      for (i = 0; i < num_fonts; i++)
+       if (! size_ref 
+           || same_size_fonts (&info[i], size_ref))
+         {
+           *tail = Fcons (build_string (names[i]), Qnil);
+           tail = &XCONS (*tail)->cdr;
+         }
+
+      XFreeFontInfo (names, info, num_fonts);
+    }
 
   return list;
 }